inherited frmColecao: TfrmColecao
  Left = 286
  Top = 231
  Caption = 'frmColecao'
  ClientHeight = 452
  ClientWidth = 523
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 415
    Width = 523
  end
  inherited Panel2: TPanel
    Width = 523
    Height = 415
    inherited Panel3: TPanel
      Width = 521
      Caption = 'Cole'#231#245'es'
      inherited GroupBox1: TGroupBox
        Left = 442
      end
    end
    inherited Panel4: TPanel
      Width = 521
      Height = 373
      object Label1: TLabel [0]
        Left = 22
        Top = 18
        Width = 33
        Height = 14
        Caption = 'C'#243'digo'
        FocusControl = EdtCodigo
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel [1]
        Left = 22
        Top = 59
        Width = 27
        Height = 14
        Caption = 'Nome'
        FocusControl = edtNome
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      inherited DBGrid1: TDBGrid
        Top = 156
        Width = 513
        TabOrder = 3
      end
      inherited SbHints: TStatusBar
        Top = 350
        Width = 513
      end
      object EdtCodigo: TDBEdit
        Tag = 1
        Left = 22
        Top = 31
        Width = 47
        Height = 21
        Hint = 'C'#243'digo da Cole'#231#227'o'
        CharCase = ecUpperCase
        Ctl3D = True
        DataField = 'COL_CODIGO'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnExit = EdtCodigoExit
      end
      object edtNome: TDBEdit
        Tag = 1
        Left = 22
        Top = 72
        Width = 297
        Height = 21
        Hint = 'Nome da Cole'#231#227'o'
        CharCase = ecUpperCase
        DataField = 'COL_NOME'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnExit = edtNomeExit
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = SQLC_Colecoes
  end
  object SQLC_Colecoes: TSQLClientDataSet
    CommandText = 'select * from COLECOES where col_codigo=:pcodigo;'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pcodigo'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 44
    Top = 312
    object SQLC_ColecoesCOL_CODIGO: TIntegerField
      DisplayLabel = 'CODIGO'
      FieldName = 'COL_CODIGO'
      Required = True
    end
    object SQLC_ColecoesCOL_NOME: TStringField
      DisplayLabel = 'NOME'
      FieldName = 'COL_NOME'
      Required = True
      Size = 35
    end
  end
end
